home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / gifpasse.zip / DGIFER.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-27  |  2KB  |  61 lines
  1. Program dgifer;
  2.  
  3.        { Steve Enns Feb.26 1989
  4.          Copyright 1989 Steve Enns   All rights reserved.
  5.          Synergrafix - Graphical and Numerical Software
  6.          2425 Haultain Ave. Saskatoon, Sask. Canada  S7J 1R2
  7.  
  8.          GIF DEcoding for BGI graphics  ( Demo Program )
  9.  
  10.          This software is provided for unlimited use and
  11.          distribution EXCEPT for the following conditions:
  12.            - No fee is to be charged for the use or distribution
  13.              of this software, including any works which include
  14.              the source code or compiled form of this software.
  15.            - Any derived software or software which uses the source
  16.              code or compiled versions of this software must include
  17.              the source code of the derived software, and this notice.
  18.            - This software is to be distributed in the original
  19.              archived form, with the SAME name, GIFPASSE,
  20.              i.e. GIFPASSE.ZIP, GIFPASSE.ARC.
  21.  
  22.          This software is provided without warranty of any kind,
  23.          express or implied. YOU, the user assume complete
  24.          responsibility for any and all incidental or consequential
  25.          damages arising out of the use of this program. Use
  26.          at your own risk.
  27.  
  28.          This license is intended to encourage the distribution of
  29.          programs which include source code!
  30.  
  31.          'GIF' and 'Graphics Interchange Format' are trademarks
  32.           of Compuserve, Inc., an H&R Block Company. }
  33.  
  34. uses dos,graph,dgif;
  35.  
  36. var gr,grm :integer;
  37.  
  38. begin
  39.  
  40.    if paramcount<>1 then
  41.    begin
  42.       writeln('DGIFER: Usage:  DGIFER giffile');
  43.       halt(1)
  44.    end;
  45.  
  46.    gr:=detect;
  47.    initgraph(gr,grm,getenv('BGIDIR'));
  48.  
  49.    if not degif(paramstr(1),0,0) then
  50.    begin
  51.       closegraph;
  52.       writeln('DGIFER: Error: Not GIF file or error during read');
  53.       halt(1)
  54.    end;
  55.  
  56.    readln;
  57.  
  58.    closegraph
  59.  
  60. end.
  61.